Artworks - Keep it Simple 1/Artworks - Keep it Simple 1.iso/az/launch.dxr/00004_moviescript.ls

Text File | 1997-07-11 | 3.4 KB | 143 lines

on startMovie
  global hiRes, winver, modal, myDrive, j2736d2937m2382, gVoid
  set textfile to "r53s.txt"
  set myDrive to CheckDrive(textfile)
  set j2736d2937m2382 to "Y7729J3338J3942"
  loadMasterApp()
  set j2736d2937m2382 to gVoid
  set modal to 0
  set winversion to 95
  set MonitorRect to getAt(the deskTopRectList, 1)
  set ScreenWidth to getAt(MonitorRect, 3)
  if ScreenWidth > 640 then
    set hiRes to 1
  else
    set hiRes to 0
  end if
  if hiRes = 0 then
    go("menus")
  else
    go("menub")
  end if
end

on CheckDrive weirdfil
  repeat with i = 67 to 90
    set drive to numToChar(i)
    set myThisPath to string(drive & ":\" & weirdfil)
    set myFile to FileIO(mnew, "read", myThisPath)
    if objectp(myFile) then
      myFile(mdispose)
      return drive & ":"
      exit
    end if
  end repeat
  alert(" CheckDrive error")
end

on dohead
  global winver, myDrive, modal
  nicekillApp("notepad", "notepad")
  open(myDrive & "\hlfonts\Hlftxt.txt", "notepad.exe")
end

on doart
  global modal, winver, myDrive
  nicekillApp("notepad", "notepad")
  if modal = 0 then
    if winver = "95" then
      alert("During installation you will see a dialog box saying, 'Install needs the following disk...' Type in " & myDrive & "\ca95\")
      open(myDrive & "\ca95\install.exe")
    else
      alert("During installation you will see a dialog box saying, 'Install needs the following disk...' Type in " & myDrive & "\ca31\")
      open(myDrive & "\ca31\install.exe")
    end if
  end if
end

on doacro
  global modal, winver, myDrive
  nicekillApp("notepad", "notepad")
  alert("The Acrobat reader will allow you to read the Photomorph manuals which can be found on this CD in the file Pm1-man.pdf.")
  open(myDrive & "\acrobat\acroread.exe")
end

on dodesign
  global winver, myDrive
  nicekillApp("notepad", "notepad")
  open(myDrive & "\az\Do1st.exe")
end

on dophoto
  global winver, myDrive
  nicekillApp("notepad", "notepad")
  open(myDrive & "\PSTUDIO\SETUP.EXE")
end

on domorph
  global winver, myDrive
  nicekillApp("notepad", "notepad")
  open(myDrive & "\az\dophot.EXE")
end

on dokudo
  global modal, winver, myDrive
  nicekillApp("notepad", "notepad")
  alert("After installing the KUDO Catalog,  you should finish the installation and re-start your computer.")
  open(myDrive & "\startup")
  quit()
end

on doreadme
  global winver, myDrive, modal
  nicekillApp("notepad", "notepad")
  open(myDrive & "AZReadme.txt", "notepad.exe")
end

on doproduct
  global winver, myDrive, modal
  nicekillApp("notepad", "notepad")
  open(myDrive & "Az\KIS_Desc.wri", "Write.exe")
end

on doaztech
  global winver, myDrive, modal
  nicekillApp("notepad", "notepad")
  if modal = 0 then
    open(myDrive & "Az\corpinfo.txt", "notepad.exe")
  end if
end

on doexit
  global modal
  nicekillApp("notepad", "notepad")
  if modal = 0 then
    quit()
  end if
end

on buttonClicked
  continue()
  set spriteNum to the clickOn
  set upNum to the memberNum of sprite spriteNum
  set upName to the name of member upNum
  set downName to upName & "D"
  set downNum to the number of member downName
  set the memberNum of sprite spriteNum to downNum
  updateStage()
  repeat while the mouseDown
    if rollOver(spriteNum) then
      set the memberNum of sprite spriteNum to downNum
    else
      set the memberNum of sprite spriteNum to upNum
    end if
    updateStage()
  end repeat
  if the memberNum of sprite spriteNum = downNum then
    puppetSound("SwitchP2")
    updateStage()
    return 1
  end if
  return 0
end